COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	<    *****  NOTES  ***** 
C00004 ENDMK
C⊗;
<    *****  NOTES  ***** 

<READ THIS INTO SOUND GENERATING PROGRAM WHEN USING
<NOTE LISTS PREPARED BY 'SCORE' PROGRAMS.

EXTERNAL FUNCTION SYNTH(ARRAY A),SEE(ARRAY B),READIN(ARRAY C),
SEG(ARRAY D), DUR(X,Y,Z),POWER(X,Y),RDNUM(X); 
ARRAY F1(512);
VARIABLE MAG, C,CS,D,DS,E,F,FS,G,GS,A,AS,B;
C←261.62;  CS←277.18;  D←293.66;  DS←311.13;  E←329.63;
F←349.23;  FS←369.99;  G←391.99;  GS←415.31;
A←440;    AS←466.16;  B←493.89;

<-- F1 ARRAY MUST BE FILLED FOR INST SIMP TO PLAY;
SYNTH(F1);1 1 999
SRATE←12800;MAG←512/SRATE;NCHNS←1;

COMPILE;
INSTRUMENT SIMP;
ZOSCIL(P4,MAG*P3,P5);
OUTA←OUTA+U1;
END;FINISH;
PLAY;SIMP 0 .2 A 2000 F1;FINISH;